home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr48 / pp001.zip / EX5.PRG < prev    next >
Text File  |  1992-07-01  |  129b  |  8 lines
  1. Program EX5;
  2. var
  3.   a : byte;
  4. begin
  5.   for a := 1 to 9 do
  6.     WriteLn((A+9) / 4);                  { Write the value }
  7. end.
  8.